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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N_ ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
N OF THE FTWARE 0 Y _OTHER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aPRPORAT I on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
c . 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS L 
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FACILITY: VMS Cluster Server 


ABSTRACT: Routine to enable the Cluster Server Process to call an 
action routine 


AUTHOR: Paul R. Beck 
DATE: 22-MAR-1983 Last Edit: 22-JUN-1983 19:16:23 
REVISION HISTORY: 


v03-003 ADE0001 Alan D. Eldridge 5-Feb 1983 
, Some general cleanup. 


V03-001 PRBO204 Paul Beck 2-MAY-1983 
Add test for zero client code 
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28 :$ »SBTTL CSPSSCALL_ACTION 
60 x 
8 3 ; Call the action routine for the client indicated in the request buffer. 
$8 e§ | ; CALLING SEQUENCE: JSB CSPSSCALL_ACTION 
000 e2 : INPUT PARAMETERS: R2 = address of CSD structure 
0900 gr : OUTPUT PARAMETERS: None 
9000 69 : COMPLETION CODES: None 
0 0 : 
000 71 
000 cg ESPSSCALL_ACTION: : 
50 OC A2 36 000 7 MOVZWL CSD$W_CODE(R2),RO ; Get client code 
18 13 0004 74 BEQL 10$ 3 if fe L, no client supplied. 
00000000'8F 50 »i Bone 75 CMPL RO, #CSPS$K_MAXACTION ; Is it within range? 
OF 14 0000 76 BGTR 10$ : If GTRU 
51 Q0000000'GF 9E OO00F 77 MOVAB G*CSP$GL <ACTIONVES, R1 3; Get varies vat action routine addresses 
51 6140 09 0016 78 MOVL (R1)CROIGR : Get address of action routine 
0 13° QO1A 79 BEQL 10$ 3 if no such routine (unsupported) 
001c 80 3JSB ss (R11) : Call the action routine 
001C 81 ;RSB ; Return to caller 
61 17 Baie Ht JMP (R1) ; Call the estion routine and return. 
BRIE ge : Handle error case: no such action routine 
50 00000000'8F DO OOTE 86 ios: MOVL #SS$_BADPARAM,RO ; Return error code 
05 0025 87 RSB 3 ee. to caller 
0026 88 
0026 89 
0026 90 .END 
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CSP$GL_ACTIONVEC eererere 
CSPSK_MAXACTION eeeeeeee : 
SS$_BADPARAM eeeeeere =X 


ESPSSCALL ACTION * 80000006 re, 
: t 


PSECT name Allocation PSECT No. Attributes 

- ABS . 00000000 < 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL an rN NOE XE —= NOWRT NOVEC BYTE 
SABSS 00000000 <¢ 5} 1¢( 1.) NOPIC USR CON ABS LCL NOSHR- EXE WRT NOVEC BYTE 
CODE 00000026 ( 38.) 2¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE RD NOWRT NOVEC BYTE 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization $3 00: 8900.08 00:00:01.53 
semnens processing He 9 $4 Bo 380s a4 
Synbol table sort 9 9:00:0 06 80:00; 0:41 
Pass 2 3 BBR! 6 00:00:01.98 
Symbol table output 0:00:00.01 v0:00:00.01 
Psect synopsis output 1 a Ba Sb 00:00:00.01 
Cross-reference output 8 Ba: espe She Be oh 
Assembler run totals 32 0:00:01. 0:00:13.08 


The working set Limit was 1650 pages. 
6102 bytes (12 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 102 non-local and 1 local symbols. 
90 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
9 pages of virtual memory were used to define 8 macros. 


Macro Library name Macros defined 
5SSDUA at: SYSLOA. et eH i -MLB;1 2 
$522 $0UA SYS.0B rst 1 

:CSYSLI 18 STARLET. Pale: 32 

TetAe'y att’ Uibrari es) 


161 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CSPCALLACT/9BJ=0BJ$:CSPCALLACT MSRC$:CSPCALLACT/UPDATE=(ENHS$:CSPCALLACT) +EXECMLS$/LIB+LIB$:CLUSTER/LIB 
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